COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE FORNAM
C00006 ENDMK
C⊗;
	TITLE FORNAM;
	INTERNAL FORNAM     ;USE THIS TO SET NAME.EXT FOR FORTRAN READING OR
	EXTERNAL FILES.	    ;READING OR WRITING ON DSK (DEV.1 ONLY!)

DIR:	BLOCK 4

FORNAM:	0	 	; CALL FORNAM(<FILE NAME>,<EXTENSION>)
	MOVE 0,@0(16)
	MOVEM 0,DIR
	MOVE 1,[POINT 7,DIR]
	MOVE 2,[POINT 6,FILES.]
	SETZM FILES.
	MOVEI 3,5
NAM1:	ILDB 0,1
	CAIN 0," "
	JRST NAM2
	SUBI 0,40
	IDPB 0,2
	SOJG 3,NAM1
NAM2:	MOVE 0,@1(16)
	MOVEM 0,FN#
	MOVE 1,[POINT 7,FN]
EXTF3:	MOVE 2,[POINT 6,FILES.+1]
	SETZM FILES.+1
	MOVEI 3,5
EXTF1:	ILDB 0,1
	CAIN 0," "
	JRA 16,2(16)
	SUBI 0,40
	IDPB 0,2
	SOJG 3,EXTF1
	JRA 16,2(16)
	END